COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "VIDXGQ"
C00004 ENDMK
C⊗;
BEGIN "VIDXGQ"
INTEGER SJOB,I0,J0,PLEN,NCOPY;
INTEGER ARRAY MESSAGE[1:32];
REQUIRE "VIXHDR.SAI[VIS,HPM]" SOURCE_FILE;

IF FALSE THEN
 BEGIN STRING A; EQU(A,A); CALL(0,0); A←CVXSTR(0); A←CVSIX("0"); A←A[1 TO 1]; END;

CALL(CVSIX("READY!"),"SETNAM");

START_CODE MAIL 1,ACCESS(MESSAGE[1]); comment WRCV; END;
CALL(CVSIX("VIDXGQ"),"SETNAM");
SJOB←MESSAGE[1]; I0←MESSAGE[2]; J0←MESSAGE[3]; PLEN←MESSAGE[4]; NCOPY←MESSAGE[5];
SETFORMAT(0,7);

   BEGIN
   INTEGER ARRAY PIC[0:PFLDIM("DSK:"&CVS(SJOB)&".TMP[TMP,HPM]")];
   GETPFL("DSK:"&CVS(SJOB)&".TMP[TMP,HPM]",PIC[0]);
   WHILE ¬VIDXGP(PIC[0],I0,J0,PLEN,NCOPY) DO CALL(30,"SLEEP");
   END;

   BEGIN INTEGER COUNT,BRCHAR,EOF,CH,FLAG;  comment delete the XGP'd file;
   CH←GETCHAN;
   OPEN(CH,"DSK",'10,0,1,COUNT,BRCHAR,EOF);
   ENTER(CH,CVS(SJOB)&".TMP[TMP,HPM]",FLAG);
   RENAME(CH,"",0,FLAG);
   RELEASE(CH);
   END;

END "VIDXGQ";